home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL07.PRO < prev    next >
Text File  |  1986-10-07  |  453b  |  20 lines
  1. /* Program 7 */
  2. /*
  3.   try entering "Albert" to the Please type a
  4.   name prompt
  5. */
  6. predicates
  7.     reference(symbol,symbol)
  8.  
  9. goal
  10.     write("Please type a name :"),
  11.     readln(The_Name),
  12.     reference(The_Name,Phone_No),
  13.     write(The_Name,"'s phone number is ",Phone_No),nl.
  14.  
  15. clauses
  16.     reference("Albert", "01-123456").
  17.     reference("Betty",  "01-569767").
  18.     reference("Carol",  "01-267400").
  19.     reference("Dorothy","01-191051").
  20.